P2 12.7
corr <-
matrix(
c(
1,
0.63,
.51,
.12,
.16,
.63,
1,
.57,
.32,
.21,
.51,
.57,
1,
.18,
.15,
.12,
.32,
.18,
1,
.68,
.16,
.21,
.15,
.68,
1
),
nrow = 5
)
corr
## [,1] [,2] [,3] [,4] [,5]
## [1,] 1.00 0.63 0.51 0.12 0.16
## [2,] 0.63 1.00 0.57 0.32 0.21
## [3,] 0.51 0.57 1.00 0.18 0.15
## [4,] 0.12 0.32 0.18 1.00 0.68
## [5,] 0.16 0.21 0.15 0.68 1.00
## -- Attaching packages --------------------------------------- tidyverse 1.3.1 --
## v ggplot2 3.3.5 v purrr 0.3.4
## v tibble 3.1.6 v dplyr 1.0.8
## v tidyr 1.2.0 v stringr 1.4.0
## v readr 1.4.0 v forcats 0.5.1
## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag() masks stats::lag()
##
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
##
## last_plot
## The following object is masked from 'package:stats':
##
## filter
## The following object is masked from 'package:graphics':
##
## layout
dist <- as.dist(1 - corr)
#Single
tree <- hclust(dist, method = "average")
ggplotly(ggdendrogram(tree))
#Complete
tree <- hclust(dist, method = "complete")
ggplotly(ggdendrogram(tree))